30 POKE53371,0:POKE788,49
40 POKE56,56:CLR:TQ=TI
42 DIMBS%(301),BW%(301),Z$(10)
50 DV=PEEK(186):IFDV<8THENDV=11
60 POKE53281,0:POKE53280,0:POKE53272,23:PRINT"[147]":GOSUB60000
70 SYS57812"LS CODE FONT",DV,0:POKE780,0:POKE781,0:POKE782,56:SYS65493
80 SYS57812"LS.MOUSE C000",DV,0:POKE780,0:POKE781,0:POKE782,192:SYS65493
90 SYS57812"LS.CODIFIER",DV,0:POKE780,0:POKE781,0:POKE782,156:SYS65493
100 SYS57812"LS.SEARCHER",DV,0:POKE780,0:POKE781,0:POKE782,152:SYS65493
110 DIMMN$(30),X1%(30),X2%(30),Y1%(30),Y2%(30)
120 ML=192*256:MV=ML+111:POKEMV,158:V=53248:POKEMV+10,160
130 BU%=64*256:EN=BU%:CD=156*256:SR=152*256
140 SYSML:SYSML+18,0,38,0,24
150 SYSML+6:POKEV+21,0
160 POKEV+39,7
170 SP$="                                       "
180 MN$(1)=" ALL ABOUT THE[157][157][157][157][157][157][157][157][157][157][157][157][157]LOADSTAR CODE"
190 MN$(2)="  SEARCH FOR[157][157][157][157][157][157][157][157][157][157]A KEY WORD"
200 MN$(3)="   THEORY OF[157][157][157][157][157][157][157][157][157][157][157][157]THE BIBLE CODE"
210 MN$(4)=" CONVERT/LOAD[157][157][157][157][157][157][157][157]FILES"
220 MN$(5)="     DRIVE[157][157][157][157][157][157][157][157]NAVIGATION"
230 MN$(6)="    QUIT TO[157][157][157][157][157][157]BASIC"
240 MN$(7)=" SOURCE DRIVE"
250 MN$(8)=" TARGET DRIVE"
260 MN$(9)="  [146][][157][157]<>"
270 MN$(10)="  [][157][157]<>"
280 MN$(11)="  [146][][157][157]<>"
290 MN$(12)="  [][157][157]<>"
300 MN$(13)=" DISK COMMAND  [152]  [155]"
310 MN$(14)=" MAIN[157][157][157][157]MENU"
320 MN$(16)="   LOAD FILE[157][157][157][157][157][157][157][157][157]AND CODIFY
330 MN$(17)[178]"    LOAD ACMDCMDCMDCMDCMDCMDCMDCMDCMDCODIFIED FILE
340 MN$(18)="    SAVE A[157][157][157][157][157][157][157][157][157]CODIFIED FILE
350 MN$(19)[178]"LIST     MAINCMDCMDCMDCMDMENU
360 MN$(21)=" LIST TO[157][157][157][157][157][157][157]PRINTER"
370 MN$(22)=" LIST TO[157][157][157][157][157][157]SCREEN"
380 MN$(23)="   MAIN[157][157][157][157]MENU"
390 MN$(24)="[155] CONTINUE"
400 MN$(25)="  GO BACK
408 FO$[178]"LIST\^":BK$[178]"LIST(null)_"
410 [129]I[178]1[164]25:[135]X1%(I),X2%(I),Y1%(I),Y2%(I)
420 [158]ML[170]15,I,X1%(I),X2%(I),Y1%(I),Y2%(I)
430 [130]
440 [131] 2,18,10,13,  21,37,10,13
450 [131] 2,18,15,18,  21,37,15,18
460 [131] 2,18,20,23,  21,37,20,23
470 [131] 2,18,10,13,  21,37,10,13
480 [131] 2,9,15,18,   11,18,15,18
490 [131] 21,28,15,18, 30,37,15,18
500 [131] 2,28,20,23,  30,37,20,23
510 [131] 18,25,21,21
520 [131] 2,18,10,13,  21,37,10,13
530 [131] 2,18,15,18,  21,37,15,18
540 [131] 2,37,20,23
550 [131] 1,12,20,23,  14,25,20,23
560 [131] 27,38,20,23
570 [131] 2,18,22,24,  21,37,22,24
580 SD[178]DV:TD[178]DV:DQ[178]0:DC[178]SD:F$[178]"":FI$[178]""
582 [139]TI[179]TQ[170]200[167]582
584 [153]"LOAD":[151]53272,31
590 [158]ML[170]30,1,38,0,8,0,16[170]12
600 [153]"PRINT#"[163]17)"T H E
610 PRINT"[174]   [176][192][174] [176][192][174] [174][192][174] [176][192][174] [176][178][174] [176][192][174] [176][192][174]
620 [153]"(null)   (null) (null) -TAN< (null) (null) /TAN^  (null)  -TAN< -=EXP
630 PRINT"[173][192][189] [173][192][189] [189] [173] [189][192][189] [173][192][189]  [177]  [189] [173] [189][173][192][189]
640 [153][163]10)"ORTANTAN^ ORTANTAN^ ^TANTAN^ ORTANTAN^
650 PRINTTAB(10)"[221]    [221]  [221] [221]  [221] [171][192][179]
660 [153][163]10)"/TANTANEXP /TANTANEXP EXPTANTANEXP /TANTANEXP
670 C=15
680 FORI=1TO6
690 SYSML+30,X1%(I),X2%(I),Y1%(I),Y2%(I),32,16+15
700 POKE646,C:SYSML+12,X1%(I)+1,Y1%(I)+1,MN$(I)
710 NEXT
720 SYSML+39,240
730 POKEMV+1,6:POKEV+21,1
740 :
750 :REM MAIN MENU LOOP
760 :
770 SYSML+9
780 IFCR%=0THEN770
790 ONCR%GOSUB1680,850,1780,1880,2520,2980
800 SYSML+42,240
810 GOTO730
820 :
830 :REM SEARCH
840 :
850 SYSML+30,0,39,10,24,32,0
860 SYSML+30,5,34,10,18,160,16+15
870 SYSML+12,10,12,"[155]FILE    : "+MID$(FI$,3)
880 SYSML+12,10,13,"[155]KEYWORD : [146]          "
890 SYSML+12,10,14,"MATCHES :          "
900 SYSML+12,10,15,"START   :        "
910 SYSML+12,10,16,"DISTANCE:        "
920 SYSML+12,20,13,""
930 POKEV+21,0:POKE198,0:SYSML+51,1,1,9:POKEMV+1,14
932 LE%=LEN(W$):IFLE%=0THENRETURN
942 SYSSR,W$,BU%,EN
944 SP%=PEEK(SR+5)+PEEK(SR+6)*256:HT%=PEEK(SR+3)+PEEK(SR+4)*256
945 IFHT%=300ANDSP%=0THENSP%=300
946 IFHT%-SP%THENFORJJ=SP%+1TOHT%:BS%(JJ)=EN-(BS%(JJ)-BU%):NEXT
948 SYSML+39,232
950 SYSML+42,232
960 PRINT"[155]";
1180 FORI=21TO23:SYSML+30,X1%(I),X2%(I),Y1%(I),Y2%(I),160,16+15
1190 SYSML+12,X1%(I)+1,Y1%(I)+1,MN$(I)
1200 NEXT
1210 POKEMV+1,23:POKEV+21,1
1220 SYSML+9
1222 IFL2%THENIFCY%=13THENIF(CX%>19ANDCX%<29)THEN880
1230 IFCR%<21ORCR%>23THEN1220
1240 IFCR%=23THENRETURN
1250 IFCR%=22THEN1480
1260 :
1270 :REM PRINTER
1280 :
1290 POKEV+21,0
1292 SYSML+30,0,39,10,24,32,0
1300 SYSML+30,8,32,10,14,160,16+15
1310 SYSML+12,12,12,"PRINTING...
1320 [159]4,4,0:[160]4:[139]ST[178][171]128[167]950
1330 [159]4,4,0
1332 [152]4,,,"FILE: "FI$,"KEYWORD: "W$:[152]4
1340 [152]4,,;:[129]I[178]0[164]2:[152]4,"  MATCH  START  DIST.  ";:[130]:[152]4
1350 [152]4,,;:[129]I[178]0[164]2:[152]4,"  -----  -----  -----  ";:[130]:[152]4
1360 [152]4,,;:[129]I[178]1[164]HT%
1370 [152]4,"  ";I;[200](SP$,5[171][195]([196](I)));
1380 [152]4,BS%(I)[171]BU%;[200](SP$,6[171][195]([196](BS%(I)[171]BU%)));
1390 [152]4,BW%(I);[200](SP$,7[171][195]([196](BW%(I))));
1400 [139]I[173]3[178][181](I[173]3)[167][152]4:[152]4,,;
1410 [139]I[178]162[167][129]J[178]0[164]7:[152]4:[130]:[152]4,,;
1420 [130]:[152]4
1430 [160]4:[151]186,DV
1440 [137]950
1450 :
1460 :[143] SCREEN
1470 :
1480 [153]"LISTLOADMATCH  START  DIST. MATCH  START  DIST.WAIT"
1490 I[178]0
1500 I[178]I[170]1:[139]I[177]HT%[167]1550
1502 II[178]I[175]1
1504 [153]"";:[139]I[177]SP%[167][153]"CONT";
1510 [153][163]0[171]20[172](II[178]0))I;
1512 [153][163]6[171]20[172](II[178]0))BS%(I)[171]BU%;
1514 [153][163]13[171]20[172](II[178]0))BW%(I);
1520 [139]II[178]0[167][153]
1540 [139][194](214)[179]21[167]1500
1542 [153]"LIST";
1550 [129]J[178]0[164]1
1560 [158]ML[170]30,X1%(24[170]J),X2%(24[170]J),Y1%(24[170]J),Y2%(24[170]J),160,16[170]15
1570 [158]ML[170]12,X1%(24[170]J)[170]3,Y1%(24[170]J)[170]1,MN$(24[170]J)
1580 [130]
1590 [151]MV[170]1,25
1600 [158]ML[170]9
1610 [139]CR%[179]24[167]1600
1612 [139]CR%[178]25[167]950
1618 [158]ML[170]30,0,39,1,21,32,0:[153]""
1620 [139]CR%[178]24[175]I[170]1[179]HT%[167]1500
1622 [139]CR%[178]24[167]1490
1650 :
1660 :[143] LS CODE
1670 :
1680 [158]ML[170]30,0,39,10,24,32,0
1688 [151]V[170]21,0
1690 [158]ML[170]54,"LSC.LS CODE",SD,170[172]256
1692 [151]V[170]21,1
1700 [139][200](E$,2)[178]"00"[167]1720
1710 [158]ML[170]30,8,32,15,16,160,16[170]15:[158]ML[170]12,10,16,E$:[158]ML[170]24,200:[142]
1720 [151]F%[170]2[174]16,0
1730 [158]ML[170]63,0,39,10,23,15,12,170[172]256,"INSTRUCTIONS TO","THE LOADSTAR CODE"
1740 [142]
1750 :
1760 :[143] BIBLE CODE
1770 :
1780 [158]ML[170]30,0,39,10,24,32,0
1788 [151]V[170]21,0
1790 [158]ML[170]54,"LSC.BIBLE",SD,170[172]256
1792 [151]V[170]21,1
1800 [139][200](E$,2)[178]"00"[167]1820
1810 [158]ML[170]30,8,32,15,16,160,16[170]15:[158]ML[170]12,10,16,E$:[158]ML[170]24,200:[142]
1820 [151]F%[170]2[174]16,0
1830 [158]ML[170]63,0,39,10,23,15,12,170[172]256,"THEORY OF","THE BIBLE CODE"
1840 [142]
1850 :
1860 :[143] LOAD/CODIFY SCREEN
1870 :
1880 [158]ML[170]30,0,39,10,24,32,0
1890 [129]I[178]16[164]19:[151]198,0
1900 [158]ML[170]30,X1%(I),X2%(I),Y1%(I),Y2%(I),160,16[170]15
1910 [151]646,15:[158]ML[170]12,X1%(I)[170]1,Y1%(I)[170]1,MN$(I)
1920 [130]
1930 [158]ML[170]30,X1%(20),X2%(20),Y1%(20),Y2%(20),160,16[170]15
1940 [158]ML[170]12,X1%(20)[170]2,Y1%(20)[170]1,"FILE IN MEMORY: "[170]FI$
1950 [158]ML[170]12,X1%(20)[170]4,Y1%(20)[170]2,[196]([181](N%[173]256)[171](N%[179][177]0))[170]" PAGES"
1960 [158]ML[170]12,X1%(20)[170]17,Y1%(20)[170]2,""[170][196](BU%)[170]" TO"[170][196](EN)
1970 [151]MV[170]1,19:[158]ML[170]39,232
1980 [151]V[170]21,1
1990 [158]ML[170]9
2000 [139]CR%[179]16[176]CR%[177]19[167]1980
2010 [145]CR%[171]15[137]2050,2240,2350,2480
2020 :
2030 :[143] LOAD N CODIFY
2040 :
2050 [158]ML[170]30,0,39,10,24,32,0
2052 [151]V[170]21,0
2060 [158]ML[170]60,"$:*",SD,208[172]256
2062 [151]V[170]21,1
2070 [158]ML[170]63,5,255,10,24,15,7,208[172]256,T$,B$
2080 [139]W$[178]""[167][158]ML[170]42,232:[137]1980
2090 FI$[178]F$
2100 [158]ML[170]30,0,39,10,24,32,0
2110 [158]ML[170]30,12,28,15,17,160,16[170]15
2120 [158]ML[170]12,14,16,"BYTES:"
2128 [151]V[170]21,0
2130 [158]CD,FI$,SD,BU%
2138 [151]V[170]21,1
2140 [158]ML[170]24,100
2150 N%[178][194](251)[170]256[172][194](252)
2152 EN[178]BU%[170]N%
2160 [158]ML[170]42,232
2170 [158]ML[170]12,X1%(20)[170]18,Y1%(20)[170]1,""[170]FI$
2180 [158]ML[170]12,X1%(20)[170]4,Y1%(20)[170]2,[196]([181](N%[173]256)[171](N%[179][177]0))[170]" PAGES"
2190 [158]ML[170]12,X1%(20)[170]17,Y1%(20)[170]2,""[170][196](BU%)[170]" TO"[170][196](EN)
2200 [137]1980
2210 :
2220 :[143] LOAD CODED FILE
2230 :
2240 [158]ML[170]30,0,39,10,24,32,0
2248 [151]V[170]21,0
2250 [158]ML[170]60,"$:C.*",SD,208[172]256
2258 [151]V[170]21,1
2260 [158]ML[170]63,5,255,10,24,15,7,208[172]256,T$,B$
2270 [139]W$[178]""[167][158]ML[170]42,232:[137]1980
2280 FI$[178]F$
2288 [151]V[170]21,0
2290 [158]ML[170]54,FI$,TD,BU%:N%[178]F%[171]BU%:EN[178]F%
2298 [151]V[170]21,1
2300 [158]ML[170]42,232
2310 [137]1930
2320 :
2330 :[143] SAVE CODED FILE
2340 :
2350 [151]V[170]21,0
2360 [158]ML[170]12,X1%(20)[170]2,Y1%(20)[170]1,"     FILENAME: WAITC.              "
2370 [158]ML[170]12,X1%(20)[170]19,Y1%(20)[170]1,""
2380 [151]198,0:[158]ML[170]51,15,1,14
2390 [139]W$[178]""[167][142]
2392 FI$[178]"C."[170]W$
2400 [158]ML[170]57,"S0:"[170]FI$,TD
2410 [158]57812FI$,TD:[151]193,0:[151]194,64
2420 [151]174,(EN)[171][181]((EN)[173]256)[172]256
2430 [151]175,[181]((EN)[173]256)
2440 [158]62954
2450 [158]ML[170]24,100
2460 [158]ML[170]42,232
2470 [137]1940
2480 [142]
2490 :
2500 :[143] DRIVE NAVIGATION
2510 :
2520 [158]ML[170]30,0,39,10,24,32,0
2530 [129]I[178]7[164]14:[151]198,0
2540 [158]ML[170]30,X1%(I),X2%(I),Y1%(I),Y2%(I),160,16[170]15
2550 [151]646,15:[158]ML[170]12,X1%(I)[170]1,Y1%(I)[170]1,MN$(I)
2560 [130]
2570 [158]ML[170]12,X1%(15),Y1%(15),"PRINT#":[139]DQ[167][153]" TARGET ":[137]2590
2580 [153]" SOURCE "
2590 [151]MV[170]1,15
2600 [158]ML[170]12,9,12,"LIST   CMDCMDCMD"[170][196](SD)
2610 [158]ML[170]12,28,12,"   CMDCMDCMD"[170][196](TD)
2620 [158]ML[170]9
2630 [139]CR%[179]9[176]CR%[177]15[167]2620
2640 [145]CR%[171]8[137]2650,2690,2730,2770,2820,2810,2910
2650 SD[178]SD[170]1:[139]SD[177]29[167]SD[178]8
2660 [159]15,SD,15:[160]15
2670 [139]ST[179][177]0[167]2650
2680 [137]2600
2690 SD[178]SD[171]1:[139]SD[179]8[167]SD[178]29
2700 [159]15,SD,15:[160]15
2710 [139]ST[179][177]0[167]2690
2720 [137]2600
2730 TD[178]TD[170]1:[139]TD[177]29[167]TD[178]8
2740 [159]15,TD,15:[160]15
2750 [139]ST[179][177]0[167]2730
2760 [137]2600
2770 TD[178]TD[171]1:[139]TD[179]8[167]TD[178]29
2780 [159]15,TD,15:[160]15
2790 [139]ST[179][177]0[167]2770
2800 [137]2600
2810 [151]186,DV:[142]
2820 [158]ML[170]12,X1%(13)[170]1,Y1%(13)[170]2,"@WAIT                        "
2830 [158]ML[170]12,X1%(13)[170]2,Y1%(13)[170]2,""
2840 [158]ML[170]51,15,1,23
2850 [158]ML[170]57,W$,DC:[151]186,DV
2860 [158]ML[170]12,X1%(13)[170]1,Y1%(13)[170]2,""
2870 [153]E$
2880 [158]ML[170]24,100
2890 [158]ML[170]30,X1%(13)[170]1,X1%(13)[170]25,Y1%(13)[170]2,Y1%(13)[170]2,160,15
2900 [137]2620
2910 DQ[178]1[171]DQ:[158]ML[170]12,X1%(15),Y1%(15),"PRINT#"
2920 [139]DQ[167]DC[178]TD:[153]" TARGET ":[137]2940
2930 DC[178]SD:[153]" SOURCE "
2940 [137]2620
2950 :
2960 :[143] QUIT
2970 :
2980 [158]ML[170]30,X1%(6),X2%(6),Y1%(6),Y2%(X),160,16[170]15
2990 [158]ML[170]12,X1%(6)[170]3,Y1%(6)[170]1,"CLICK HERECMDCMDCMDCMDCMDCMDCMDCMDCMDCMDTO CONFIRM"
3000 [158]ML[170]9
3010 [139]L2%[178]0[167]3000
3020 [139]CR%[178]6[167][151]V[170]21,0:[153]"LOAD":[158]ML[170]3:[137]40000
3030 [142]
10000 D[178][194](186):N$[178]"0:B.LS CODE":[159]15,D,15,"S"[170]N$:[160]15:[148]N$,D:[128]
40000 [129]I[178]8[164]29:[151]820[170]I,I:[130]:[139]DV[177]8[175]DV[179]30[167][151]828,DV:[151]820[170]DV,8
40010 A$[178]"PRESENTER":[141]40030:A$[178]"HELLO CONNECT":[141]40030
40020 [153]"LOAD":[151]53272,23:[151]186,8:[151]2048,0:[151]44,8:[151]43,1:[128]
40030 [129]J[178]8[164]29:I[178][194](820[170]J):[139]I[178]14[167][130]
40040 [160]2:[159]2,I,2:[160]2:[139]ST[167]40060
40050 [160]15:[159]15,I,15,"R0:"[170]A$[170]"="[170]A$:[132]15,ER:[160]15:[139]ER[178]63[167]40070
40060 [130]:[142]
40070 A$[178]"HELLO CONNECT":Q$[178][199](34):[151]646,[194](53281):[153]"LOAD":[151]53272,23
40080 [153]"LOADP(null)2048,0:P(null)44,8:P(null)43,1:P(null)56,160:P(null)55,0:CLR:L(null)"Q$A$Q$","I
40090 [153]"RUN:":[151]631,13:[151]632,13:[151]198,2:[128]
60000 [153]"LOAD":Z$[178]" PRINT#                                      ":[151]214,10:[153]
60010 [153]" LISTFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFRE":[129]I[178]0[164]11:[153]Z$:[130]
60020 [153]" POKEPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPRINT#"
60030 Z$(0)[178]"(null) LEFT$ VAL   (null) (null) ATN STR$ (null) (null) ATN (null)   LEN (null) STR$ VAL
60040 Z$(2)="BY [203]NEES [195]ALHOON
60050 Z$(4)[178]"(C) 1998 BY MID$ & ASC (null)UBLISHING, RIGHT$NC."
60060 Z$(6)[178]"(null)HIS PROGRAM IS NOT SHAREWARE
60070 Z$(7)="OR IN THE PUBLIC DOMAIN."
60080 Z$(9)="1-800-594-3370 OR 1-318-221-8718
60090 [151]214,12:[153]:[129]I[178]0[164]9:[153][163]20[171]([195](Z$(I))[173]2))""Z$(I):[130]:[142]